home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / vised.gc < prev    next >
Text File  |  1999-05-14  |  4KB  |  116 lines
  1. G4C
  2.  
  3. WINBIG 37 10 585 206    "VisEd.gc"
  4. winout 'CON:300/110/340/140/NOTES/AUTO'
  5. WinType 11110001
  6. usetopaz
  7.  
  8. ;  Headings
  9. CTEXT 28 3    'Visual Editing Practice' topaz.font 11 2 0 001
  10. CTEXT 370 1   'Graded Suggestions' topaz.font 9 3 2 000
  11.  
  12. ; Two squares to organize practice
  13. SQUARE 287 30 285 71    1 nofill
  14. SQUARE 9 19 271 79      2 nofill
  15.  
  16. ; Graphics samples to play with
  17. BOX 183 56 45 21        IN BUTTON
  18. LINE 99 83 248 93       1
  19. SQUARE 32 57 42 26      1 fill
  20. CIRCLE 128 63 22 12     1 nofill
  21.  
  22. xonLoad 
  23.     ; Set up our path for the second window
  24.     extract VisEd.gc guipath tem_path
  25.     assign TEM: $tem_path
  26.     delvar tem_path
  27.     GuiLoad TEM:SecondWindow.g
  28.     GuiOpen VisEd.gc
  29.  
  30. xonClose
  31.     GuiQuit SecondWindow.g
  32.     GuiQuit VisEd.gc
  33.  
  34. ; More samples to play with
  35.  
  36. XBUTTON 24 36 63 14    'Button'
  37.  
  38. XCYCLER 63 103 92 15    'Cycler' cvar
  39.     CSTR 'OFF' 0
  40.     CSTR 'ON' 1
  41.  
  42. XCHECKBOX 250 105 26 12    'CheckBox' chvar 'ON' 'OFF' OFF
  43.  
  44. XHSLIDER 63 119 213 11    'Slider' hvar 0 100 50 ''
  45.  
  46. XTEXTIN 210 36 53 13    'TextIn' tvar Text 128
  47.  
  48. XLISTVIEW 43 147 205 57    ListView lv '' 0 NUM
  49.  
  50. ; Five suggested practice activities
  51.  
  52. XBUTTON 397 14 26 13    '1'
  53.  
  54.     a = '                  Saving any changes\n'
  55.     appvar a '                  ------------------\n'
  56.     appvar a 'Any changes you make can be saved by pressing Ctrl/g.\n'
  57.     appvar a 'Note that the effect will be to change permanently the\n'
  58.     appvar a 'existing format of this tutorial. If you wish to\n'
  59.     appvar a 'keep the original intact, make a copy now.'
  60.     ezreq $a 'Okay' v
  61.  
  62. XBUTTON 424 14 26 13         '2'
  63.     a = '               Practice in moving objects\n'
  64.     appvar a '               --------------------------\n'
  65.     appvar a 'Move the items from the white box into the black box.\n'
  66.     appvar a 'Gui4Cli docs will tell you how to use Ctrl and the mouse\n'
  67.     appvar a 'button (or "h") to move items.  Note the special needs of\n'
  68.     appvar a 'graphics elements, especially circles.  Avoid the lower\n'
  69.     appvar a 'right corner if you just want to move an object.'
  70.     ezreq $a 'Okay' v
  71.  
  72. XBUTTON 450 14 26 13         '3'
  73.     a = '               Practice in resizing objects\n'
  74.     appvar a '               ----------------------------\n'
  75.     appvar a 'Resize the items in one of the boxes so that, as far as possible,\n'
  76.     appvar a 'they completely fill it. Remember, click on the lower right\n'
  77.     appvar a 'corner to change the size or shape of an object. You can\n'
  78.     appvar a 'change the gradient but not the thickness of the line.'
  79.     ezreq $a 'Okay' v
  80.  
  81. XBUTTON 476 14 26 13         '4'
  82.     a = '                Practice in cloning objects\n'
  83.     appvar a '                ---------------------------\n'
  84.     appvar a 'A new gui window will be opened for you in the lower right\n'
  85.     appvar a 'section of the existing one. Clone a selection of objects\n'
  86.     appvar a 'from the larger window into the smaller.'
  87.     ezreq $a 'Okay' v
  88.     ifexists WINDOW SecondWindow.g
  89.         ; nop
  90.     else
  91.         GuiOpen SecondWindow.g
  92.     endif
  93.  
  94. XBUTTON 502 14 26 13         '5'
  95.     a =      '           Duplicating and deleting objects\n'
  96.     appvar a '           --------------------------------\n'
  97.     appvar a 'To duplicate an object in its own window, clone it into the\n'
  98.     appvar a 'second window, and then clone that new object back into the\n'
  99.     appvar a 'first window.\n'
  100.     appvar a 'Check also how the delete key can be used with a selected object.'
  101.     ezreq $a 'Okay' v
  102.     ifexists WINDOW SecondWindow.g
  103.         ; nop
  104.     else
  105.         GuiOpen SecondWindow.g
  106.     endif
  107.  
  108. ;------  Window for cloning practice
  109.  
  110. NEWFILE SecondWindow.g
  111.  
  112. WINBIG 320 124 300 100  "SecondWindow.g"
  113. WinType 11110001
  114. usetopaz
  115.  
  116.